0 IFA=.THENA=1:LOAD"TEXT PRINT.ML.O",8,1
5 :
6 REM       ALTER ROM SCROLLING
7 :
10 POKE770,131:POKE771,164:POKE88,.:POKE89,192:POKE90,.:POKE91,192
20 POKE781,33:POKE782,.:SYS41964:POKE88,254:POKE89,255:POKE90,254:POKE91,255
30 POKE781,33:POKE782,.:SYS41964:POKE59639,4:POKE1,53
100 :
105 REM       SETUP STUFF...
106 :
110 POKE55,.:POKE56,32:CLR:Q$=CHR$(34)
120 DIM FI$(144),FT%(144),NB%(144):CO=1
125 POKE53280,.:POKE53281,.
130 PRINT"[147]      [154]INSERT DISK AND PRESS SPACE":POKE198,.
140 IFPEEK(203)<>60THEN140
150 PRINT"[147]      [158]TEXT PRINTER BY MIKE MAYNARD"
160 PRINT"   [154]READING ALL "Q$"T."Q$" [154]AND "Q$"SEQ"Q$" [154]FILES..."
180 :
185 REM      READ THE DIRECTORY
190 :
200 OPEN15,8,15,"I0":OPEN8,8,8,"#"
210 PRINT#15,"U1:"8;0;18;1
220 SYS49152,FI$,FT%,NB%
230 IF (LEFT$(FI$,2)<>"T.") AND (FT%<>129) THEN OK=.:GOTO240
235 FI$(CO)=FI$:FT%(CO)=FT%:NB%(CO)=NB%:    CO=CO+1 : OK=1
240 PRINT"[154]";:IF(OK)THENPRINT"";
245 PRINTFI$"                    "
250 A=PEEK(2):IFA=.THEN220
260 IFA<>255THENPRINT#15,"U1:"8;0;18;A:PRINT#15,"B-P:"8;0:GOTO220
270 CLOSE8:CLOSE15
280 :
285 :
290 REM    PRINT THOSE FILES!!
295 :
300 FOR A=1 TO CO-1
310 SYS 828,8192,FI$(A)
320 OPEN4,4,7
330 SYS 49418,8192
340 PRINT#4:CLOSE4
350 NEXT